home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Tools / Freeware / ttengine-5.0 / Examples / TextExtent / txex.c < prev    next >
Encoding:
C/C++ Source or Header  |  2002-11-05  |  5.6 KB  |  165 lines
  1. /* test ttengine */
  2.  
  3. #define __NOLIBBASE__
  4.  
  5. #include <proto/dos.h>
  6. #include <proto/exec.h>
  7. #include <proto/intuition.h>
  8. #include <proto/graphics.h>
  9. #include <proto/ttengine.h>
  10. #include <proto/asl.h>
  11.  
  12. #include <libraries/ttengine.h>
  13.  
  14. extern struct Library *SysBase, *DOSBase;
  15.  
  16. struct Library *TTEngineBase, *IntuitionBase, *GfxBase, *AslBase;
  17.  
  18. /*----------------------------------------------------------------------------------------------------*/
  19.  
  20. static STRPTR get_font_name(struct Library *AslBase)
  21.   {
  22.     struct FileRequester *freq;
  23.     STRPTR name = NULL;
  24.  
  25.     if (freq = AllocAslRequestTags(ASL_FileRequest, TAG_END))
  26.       {
  27.         if (AslRequestTags(freq,
  28.           ASLFR_TitleText, (ULONG)"Select TrueType font",
  29.           ASLFR_InitialDrawer, (ULONG)"FONTS:",
  30.           ASLFR_DoPatterns, TRUE,
  31.           ASLFR_InitialPattern, (ULONG)"#?.ttf",
  32.           ASLFR_RejectIcons, TRUE,
  33.           TAG_END))
  34.           {
  35.             ULONG namelen = strlen(freq->fr_File) + strlen(freq->fr_Drawer) + 4;
  36.  
  37.             if (name = AllocVec(namelen + 1, MEMF_ANY | MEMF_CLEAR))
  38.               {
  39.                 strncpy(name, freq->fr_Drawer, namelen);
  40.                 AddPart(name, freq->fr_File, namelen);
  41.               }
  42.           }
  43.         FreeAslRequest(freq);
  44.       }
  45.     return name;
  46.   }
  47.  
  48. /*----------------------------------------------------------------------------------------------------*/
  49.  
  50. static VOID free_font_name(STRPTR name)
  51.   {
  52.     if (name) FreeVec(name);
  53.   }
  54.  
  55. /*----------------------------------------------------------------------------------------------------*/
  56.  
  57. void framed_text(STRPTR text, UWORD y, struct RastPort *rp)
  58.   {
  59.     struct TextExtent te;
  60.     UWORD len;
  61.  
  62.     len = strlen(text);
  63.  
  64.     TT_TextExtent(rp, text, len, &te);
  65.  
  66.     SetAPen(rp, 2);
  67.     Move(rp, 10 + te.te_Extent.MinX, y + te.te_Extent.MaxY);
  68.     Draw(rp, 10 + te.te_Extent.MinX, y + te.te_Extent.MinY);
  69.     Draw(rp, 10 + te.te_Extent.MaxX, y + te.te_Extent.MinY);
  70.     Draw(rp, 10 + te.te_Extent.MaxX, y + te.te_Extent.MaxY);
  71.     Draw(rp, 10 + te.te_Extent.MinX, y + te.te_Extent.MaxY);
  72.  
  73.     SetAPen(rp, 1);
  74.     Move(rp, 10, y);
  75.     TT_Text(rp, text, len);
  76.   }
  77.  
  78.  
  79. int Main (void)
  80.   {
  81.     struct Window *win;
  82.     STRPTR fontname;
  83.     APTR font;
  84.  
  85.     if (GfxBase = OpenLibrary("graphics.library", 39))
  86.       {
  87.         if (IntuitionBase = OpenLibrary("intuition.library", 39))
  88.           {
  89.             if (AslBase = OpenLibrary("asl.library", 38))
  90.               {
  91.                 if (fontname = get_font_name(AslBase))
  92.                   {
  93.                     if (TTEngineBase = OpenLibrary("ttengine.library", 0))
  94.                       {
  95.                         if (win = OpenWindowTags(NULL,
  96.                           WA_Top, 25,
  97.                           WA_Left, 0,
  98.                           WA_Width, 640,
  99.                           WA_Height, 210,
  100.                           WA_CloseGadget, TRUE,
  101.                           WA_DragBar, TRUE,
  102.                           WA_DepthGadget, TRUE,
  103.                           WA_IDCMP, IDCMP_CLOSEWINDOW,
  104.                           WA_Title, (ULONG)"TT_TextExtent() test",
  105.                           TAG_END))
  106.                           {
  107.                             ULONG sigmask, signals;
  108.                             BOOL running = TRUE;
  109.                             struct RastPort *rp = win->RPort;
  110.  
  111.                             if (font = TT_OpenFont(
  112.                               TT_FontFile, (ULONG)fontname,
  113.                               TT_FontSize, 31,
  114.                             TAG_END))
  115.                               {
  116.                                 if (TT_SetFont(rp, font))
  117.                                   {
  118.                                     TT_SetAttrs(rp,
  119.                                       TT_Window, (ULONG)win,
  120.                                       TT_Antialias, TT_Antialias_On,
  121.                                     TAG_END);
  122.  
  123.                                     SetDrMd(rp, JAM1);
  124.  
  125.                                     framed_text("TT_TextExtent() example", 46, rp);
  126.                                     framed_text("Vjgq2837!^²³_&##,.P", 92, rp);
  127.                                     framed_text("Frame should tightly enclose the text.", 138, rp);
  128.                                   }
  129.                                 else PutStr("TT_SetFont() failed.\n");
  130.                                 TT_CloseFont(font);
  131.                               }
  132.                             else PutStr("Font open failed.\n");
  133.  
  134.                             sigmask = SIGBREAKF_CTRL_C | (1 << win->UserPort->mp_SigBit);
  135.                             while (running)
  136.                               {
  137.                                 signals = Wait(sigmask);
  138.                                 if (signals & SIGBREAKF_CTRL_C) running = FALSE;
  139.                                 if (signals & (1 << win->UserPort->mp_SigBit))
  140.                                   {
  141.                                     struct IntuiMessage *imsg;
  142.  
  143.                                     while (imsg = (struct IntuiMessage*)GetMsg(win->UserPort))
  144.                                       {
  145.                                         if (imsg->Class == IDCMP_CLOSEWINDOW) running = FALSE;
  146.                                         ReplyMsg((struct Message*)imsg);
  147.                                       }
  148.                                   }
  149.                               }
  150.                             TT_DoneRastPort(win->RPort);
  151.                             CloseWindow(win);
  152.                           }
  153.                         CloseLibrary(TTEngineBase);
  154.                       }
  155.                     free_font_name(fontname);
  156.                   }
  157.                 CloseLibrary(AslBase);
  158.               }
  159.             CloseLibrary(IntuitionBase);
  160.           }
  161.         CloseLibrary(GfxBase);
  162.       }
  163.     return 0;
  164.   }
  165.